home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 26
/
Cream of the Crop 26.iso
/
bbs
/
mxgui203.zip
/
GUI_UTIL.TXT
< prev
next >
Wrap
Text File
|
1997-08-11
|
2KB
|
55 lines
{
───────────────────────────────────────────────────────────────────────────────
▀▀▀ ▀▀▀ ▀▀▀▀▀ ▀▀ ▀▀
▀▀▀▀ ▀▀▀▀ ▀▀ ▀▀ ▀▀ ▀▀
▀▀ ▀▀▀ ▀▀ ▀▀▀▀▀▀▀ ▀▀▀ ╔══ ╦═╗ ╔═╗ ╦═╗ ╦ ╦ ╦ ╔═╗ ╔═╗
▀▀ ▀ ▀▀ ▀▀ ▀▀ ▀▀ ▀▀ ║ ╦ ╠╦╝ ╠═╣ ╠═╝ ╠═╣ ║ ║ ╚═╗
▀▀ ▀▀ ▀▀ ▀▀ ▀▀ ▀▀ ╚═╝ ╩╚═ ╩ ╩ ╩ ╩ ╩ ╩ ╚═╝ ╚═╝
───────────────────────────────────────────────────────────────────────────────
The MAX Graphics GUI Kit is Copyright 1995-Current Larry L. Athey (LA-Soft).
Color Averaging procedures are courtesy of Sean Price (Rude Dog Software).
─────────────────────────────────────────────────────────────────────────────── }
INTERFACE
CONST
_DOS = 0; {DOS }
OS2 = 1; {OS/2 }
WIN = 2; {WinDoze }
DV = 3; {DesqView }
VAR
OS : BYTE; {The current operating system running. }
ProgramVersion : STRING[10]; {The version of your program. }
ProgramName : STRING[40]; {The name of your program. }
{───────────────────────────────────────────────────────────────────────────}
FUNCTION AllCaps(S : STRING) : STRING;
FUNCTION BooleanToStr(B : BOOLEAN) : STRING;
FUNCTION BoolToStr(B : BOOLEAN) : STRING;
FUNCTION StrToBool(S : STRING) : BOOLEAN;
FUNCTION IntToStr(N : LONGINT) : STRING;
FUNCTION StrToInt(S : STRING) : LONGINT;
FUNCTION StripLead(St : STRING; Ch : CHAR) : STRING;
FUNCTION StripTrail(St : STRING; Ch : CHAR) : STRING;
FUNCTION StripBoth(St : STRING; Ch : CHAR) : STRING;
FUNCTION Center(St : STRING; MaxPlace : BYTE) : STRING;
FUNCTION PadRight(S : STRING; Ch : CHAR; Len : BYTE) : STRING;
FUNCTION PadLeft(S : STRING; Ch : CHAR; Len : BYTE) : STRING;
FUNCTION FSize(Fn : PathStr) : LONGINT;
FUNCTION FExist(Fn : PathStr) : BOOLEAN;
FUNCTION FErase(Fn : PathStr) : BOOLEAN;
FUNCTION DExist(Fn : PathStr) : BOOLEAN;
FUNCTION CopyFile(SourceFile,TargetFile : STRING) : BYTE;
FUNCTION GetFileName(InString : STRING) : STRING;
FUNCTION GetFilePath(InString : STRING) : STRING;
FUNCTION FixPath(Txt : STRING) : STRING;
FUNCTION NoPath(Txt : STRING) : STRING;
FUNCTION OSstr : STRING;
{───────────────────────────────────────────────────────────────────────────}
PROCEDURE MakeDir(DirName : STRING);
PROCEDURE TimeSlice;
PROCEDURE DetectOS;
PROCEDURE ClearKeyBuffer;
{───────────────────────────────────────────────────────────────────────────}